home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
doors_2
/
r174chtr.zip
/
R-PCCHTR.MRG
< prev
next >
Wrap
Text File
|
1992-07-27
|
5KB
|
140 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against D:\1740704\RBBS-PC.BAS to produce D:\SOURCE\RBBS-PC.BAS
* D:\1740704\RBBS-PC.BAS: Date 7-26-1992 Size 147632 bytes
* ------------[ Created 07-27-1992 00:12:18 ]------------
* REPLACING old line(s) by new
800 IF ZAdjustedSecurity THEN _
GOSUB 5135
IF ZOrigCnfg$ = ZCurDef$ THEN _
ZMainUserFileIndex = ZUserFileIndex : _
ZOrigSec = ZUserSecLevel : _
ZUserSecSave = ZUserSecLevel : _
ZOrigUserName$ = ZActiveUserName$
ZTimesLoggedOn = CVI(MID$(ZUserOption$,1,2)) - _
((ZOrigCnfg$ <> ZCurDef$ OR NOT ZSubBoard) AND _
(NOT ZPrivateDoor) AND (NOT ZExitToDoors))
GOSUB 9500
IF (NOT ZExitToDoors) AND (NOT ZSubBoard) THEN _
CALL UpdtCalr (ZActiveUserName$ + " from " + ZWasCI$ + _
" Lvl" + STR$(ZUserSecLevel) + " " + TIME$,2)
PrevLastOn$ = ZLastDateTimeOn$
IF ZLocalUser THEN _
ZTalkToModemAt$ = "9600" : _
ZBaudParity$ = "9600 BPS,N,8,1" : _
ZModemInitBaud$ = "9600" : _
ZSnoop = ZTrue : _
ZLineFeeds = ZTrue
CALL SetCrLf
CALL SetPrompt
CALL XferType (2,ZTrue)
IF NOT ZSubBoard THEN _
BoardCheckDate$ = PrevLastOn$
CALL SetSysOp
IF ZWasA THEN _
ZActiveUserName$ = "SYSOP" : _
ZFirstName$ = "SysOp"
IF ZExitToDoors OR ZSubBoard THEN _
GOTO 815
GOSUB 465
IF (ZEightBit AND _
ZAutoDownDesired) OR _
ZAskID THEN _
CALL TestUser
CALL QuickTPut1 ("Logging " + ZActiveUserName$)
CALL Talk (1,ZOutTxt$)
Temp$ = STR$(ZBaudTest!) + MID$(ZBaudParity$,INSTR(ZBaudParity$," B"))
CALL QuickTPut1 ("RBBS-PC " + ZVersionID$ + " Node " + ZNodeID$ + _
", operating at" + Temp$)
CALL SkipLine (1)
* ------[ first line different ]------
IF ZMaxnodes > 1 THEN 'CHT021301
CALL LogNewForChat (ZMaxnodes) 'CHT021301
END IF 'CHT021301
Attempts = 0
ZWasZ$ = ZActiveUserName$ + _
" on at " + _
ZCurDate$ + _
", " + _
ZTime$ + _
" from " + _
ZWasCI$ + _
"," + Temp$
ZWasNG$ = ZWasZ$ + SPACE$(128 - LEN(ZWasZ$))
'
' * ALWAYS RECORD THE HASH/INDIVIDUATING FIELD TO EACH RECORD LOGGED OUT
'
WasX$ = "{" + _
HashValue$ + _
"/" + _
ZIndivValue$ + _
"}"
IF LEN(ZWasZ$) < 65 THEN _
WasX = 65 _
ELSE WasX = LEN(ZWasZ$) + 2
MID$(ZWasNG$,WasX) = WasX$
CALL Printit (" " + ZWasZ$)
IF ZNewUser THEN _
CALL UpdtCalr ("NEWUSER",1) : _
CALL Muzak (2)
'
' ***** NOTIFY CALLER IF ABLE TO "AUTODOWN" ****
'
IF ZEightBit AND ZAutoDownYes THEN _
ZOutTxt$ = CHR$(9) + _
ZReturnLineFeed$ + _
"You may use AUTODOWNLOADing!" : _
CALL RingCaller : _
CALL DelayTime(4)
* REPLACING old line(s) by new
1230 CALL Line25
ZOutTxt$ = ZConfName$ + ":"
GOSUB 12978
CALL Talk (65,ZConfName$)
CALL DispTimeRemain (MinsRemaining)
IF ZMenuIndex = 6 THEN _
ZSubParm = 1 : _
CALL Library
* ------[ first line different ]------
CALL CBCheck 'CHT021301
CALL Talk (ZMenuIndex, ZOutTxt$)
* REPLACING old line(s) by new
1235 ZWasZ$ = ZUserIn$(ZAnsIndex)
IF ZWasZ$ = SPACE$(LEN(ZWasZ$)) THEN _
GOTO 1230
* ------[ first line different ]------
IF ZWasZ$ = "@" THEN _ 'CHT021301
CALL CBChat(ZMaxnodes) : _ 'CHT021301
GOSUB 5344 : _ 'CHT021301
GOTO 1230 _ 'CHT021301
ELSE _ 'CHT021301
CALL SearchCmd (ZSubSection,ZFF)
IF ZFF > 0 THEN _
GOTO 1239
IF ZWasQ > 0 THEN _
CALL QuickTPut1 ("Unknown command <"+ZWasZ$+">")
CALL FlushKeys
GOTO 1230
* REPLACING old line(s) by new
5410 CALL Toggle(-9)
GOSUB 43020
ZFF = INSTR(ZDefaultXfer$,ZUserXferDefault$)
CALL Toggle(-5)
GOSUB 42810
CALL Toggle(-3)
CALL Toggle(-6)
CALL Toggle(-7)
CALL Toggle(-10)
CALL Toggle(-2)
CALL Toggle(-4)
CALL Toggle(-8)
CALL Toggle(-1)
* ------[ first line different ]------
CALL Toggle(-11) 'CHT030501
IF ZRestrictByDate AND ZDaysInRegPeriod > 0 THEN _
IF ZUserSecLevel > ZTempExpiredSec THEN _
CALL QuickTPut1 ("Registration expires " + ZExpirationDate$)
RETURN
'
' ***** B - COMMAND FROM UTILITY MENU (Bank Time) ****
'